Mac100% 1999 April/MAC100-1999-04.ISO.7z/MAC100-1999-04.ISO/ｵﾝﾗｲﾝｿﾌﾄ定点観測/Network/Lib-a-Pool 1.12 f.sit/Lib-a-Pool 1.12 f/Lib-a-Pool 1.12/background_2748.xml

Extensible Markup Language | 1999-01-05 | 10KB | 254 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2748</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3843.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3137.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>11</left>
            <top>173</top>
            <right>146</right>
            <bottom>192</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>14</textSize>
        <textStyle>condense</textStyle>
        <textStyle>outline</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>18</textHeight>
        <name>Lib-a-Pool</name>
        <script>on mouseUpsend "mouseup" to bg btn "ﾃ…ﾃｺabout..."end mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>246</left>
            <top>175</top>
            <right>310</right>
            <bottom>191</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>10</textSize>
        <textStyle>condense</textStyle>
        <textStyle>outline</textStyle>
        <name>ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦</name>
        <script>on mouseUpGoCard (short name of me)end mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>310</left>
            <top>175</top>
            <right>374</right>
            <bottom>191</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>10</textSize>
        <textStyle>condense</textStyle>
        <textStyle>outline</textStyle>
        <name>ﾃ･ﾃｼﾃｧﾄｱ</name>
        <script>on mouseUpGoCard (short name of me)end mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>374</left>
            <top>175</top>
            <right>438</right>
            <bottom>191</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>10</textSize>
        <textStyle>condense</textStyle>
        <textStyle>outline</textStyle>
        <name>ﾃｨﾃ｢ﾃ､ﾋ凖ｪ窶ｺﾃｭﾃ‹</name>
        <script>on mouseUpGoCard (short name of me)end mouseUp</script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>438</left>
            <top>175</top>
            <right>502</right>
            <bottom>191</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>10</textSize>
        <textStyle>condense</textStyle>
        <textStyle>outline</textStyle>
        <name>ﾃｨ竅„ﾃｧ笳甘ｪ窶ｺﾃｭﾃ‹</name>
        <script>on mouseUpGoCard (short name of me)end mouseUp</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>144</left>
            <top>180</top>
            <right>187</right>
            <bottom>192</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>condense</textStyle>
        <textStyle>outline</textStyle>
        <name>ﾃ…ﾃｺabout...</name>
        <script>on mouseUprepeatanswer "ﾃ⑶XCMD/XFCNﾃ‡窶ｦﾃ‡ﾂｬﾃ‡ﾂ｢ﾃ‡ﾆ津⑶" & return & return & "ﾃ①Lib-a-Poolﾃ‡ﾃ陛②ﾃ｢竏ｫﾃ｣Lﾃ‡ﾃスCMD/XFCNﾃ‡ï｣ｿﾃｩgﾃｳpﾃ‡竕･ﾃ‡ﾏ\ﾃ‡ﾆ津‡ﾂ｢ﾃ‡ﾎｩﾃ‡ﾃｦﾃ‡ﾂ｢ﾃ‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡竏妥③" with "[XCMDs]" or "[XFCNs]" or "OK"if it is "OK" then exit mouseupif it is "[XCMDs]" thenanswer line 1 to 5 of me with "ﾃｱïｬづ‡ﾃˆ" or "OK"if it is "OK" then exit mouseupend ifif it is "[XFCNs]" thenanswer line 7 to 15 of me with "ﾃｱïｬづ‡ﾃˆ" or "OK"if it is "OK" then exit mouseupend ifend repeatend mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>65534</left>
            <top>171</top>
            <right>512</right>
            <bottom>174</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Resizer</name>
        <script>on mousewithinput top of me into top_of_meput (item 4 of the screenrect)-((the top of cd window)+21) into CdBottom_Limitput the ticks into PrevTksput 0 into acurCountrepeat until the mouse is downif the mouseloc is not within rect of me then exit mousewithinget the ticksif (it-PrevTks)>1 thenput it into PrevTksset cursor to 110+(item (acurCount mod 16)+1 of me)add 1 to acurCountend ifend repeatrepeat until the mouse is upset top of me to max(171,min((the mousev)-1,CdBottom_Limit))get the ticksif (it-PrevTks)>1 thenput it into PrevTksset cursor to 210+(item (acurCount mod 16)+1 of me)add 1 to acurCountend ifend repeatget top of meif it=top_of_me then exit mousewithinset height of this cd to it+21SetPosition it-top_of_meend mousewithinon SetPosition MovingBitsput "1,2,3,4,5,7,8,11,12,13,15,16,17,18" into BrowseCd_BtnNumListput "3,4" into BrowseCd_FldNumListlock screenrepeat with i = 1 to 6set bottom of bg part i to (bottom of bg part i)+MovingBitsend repeatset rect of cd fld "BrowsingField" of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦" to 11,25,419,(bottom of cd fld "BrowsingField" of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦")+MovingBitsrepeat with j = 1 to (number of items of BrowseCd_BtnNumList)set top of cd btn (item j of BrowseCd_BtnNumList) of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦" to (top of cd btn (item j of BrowseCd_BtnNumList) of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦")+MovingBitsend repeatrepeat with k = 1 to (number of items of BrowseCd_FldNumList)set top of cd fld (item k of BrowseCd_FldNumList) of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦" to (top of cd fld (item k of BrowseCd_FldNumList) of cd "ﾃ疫ﾃ嘉｢ﾃ右ﾃ浦")+MovingBitsend repeatset top of cd btn "ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ欝ﾃ韻ﾃ浦ﾃｭ竕､ﾃｪﾃ†" of cd "ﾃ･ﾃｼﾃｧﾄｱ" to max(57,min((top of cd btn "ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ欝ﾃ韻ﾃ浦ﾃｭ竕､ﾃｪﾃ†" of cd "ﾃ･ﾃｼﾃｧﾄｱ")+round(MovingBits/2),(top of me)-51))set rect of cd fld "FoundField" of cd "ﾃ･ﾃｼﾃｧﾄｱ" to 11,26,501,(top of cd btn "ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ欝ﾃ韻ﾃ浦ﾃｭ竕､ﾃｪﾃ†" of cd "ﾃ･ﾃｼﾃｧﾄｱ")set rect of cd fld "DownlistField" of cd "ﾃ･ﾃｼﾃｧﾄｱ" to 11,(bottom of cd btn "ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ欝ﾃ韻ﾃ浦ﾃｭ竕､ﾃｪﾃ†" of cd "ﾃ･ﾃｼﾃｧﾄｱ"),501,(top of me)-16set top of cd fld "Messages" of cd "ﾃ･ﾃｼﾃｧﾄｱ" to (top of cd fld "Messages" of cd "ﾃ･ﾃｼﾃｧﾄｱ")+MovingBitsunlock screen with dissolve fastend SetPosition</script>
    </part>
    <content>
        <layer>background</layer>
        <id>1</id>
        <text>Lib-a-Pool 1.12</text>
    </content>
    <content>
        <layer>background</layer>
        <id>13</id>
        <text>[XCMDs] ﾃｬcﾃｭﾃ愿①ﾃ｣ﾃ…ﾃｮVﾃ‡竕･ﾃ‡ﾃ津ｧﾃ MtDeleteFile , MtAppendFile , MtSaveTextRsrc MtCreateFldr , MtPutOnClip , MtWriteFile MtSetFTC[XFCNs]ﾃｬcﾃｭﾃ愿①ﾃ｣ﾃ…ﾃｮVﾃ‡竕･ﾃ‡ﾃ津ｧﾃ MtExtractFile , MtFilesInFldr , MtGetByte MtListMatch , MtOffset , MtReadFile MtReadTextRsrc , MtSearchFile , MtSelectFldr MtGetFInfo , path2file , PathToFileﾃ 窶ｦﾃｬﾂｰﾃｯ竏づｳY(ﾃ‡tﾃ‡cﾃ‡h)ﾃ‡竕･ﾃ‡ﾃ津ｧﾃ UxFindUpPDSF , deleteLastReturn</text>
    </content>
    <content>
        <layer>background</layer>
        <id>14</id>
        <text>6,6,6,7,8,9,9,9,8,7,6,5,5,6,6,6</text>
    </content>
    <name>Lib-a-Pool</name>
    <script>function LenForm FBytes,BorA,PChar,Targrepeat FBytes-(length of Targ)do "put PChar " & BorA & " Targ"end repeatreturn Targend LenForm</script>
</background>